home *** CD-ROM | disk | FTP | other *** search
/ Venus 7000 / darktronics.iso / Software / Service Packs / WinXPSP1.exe / appwiz.cp_ / appwiz.cpl / HTML / ACCEL.HTC next >
Encoding:
Text File  |  2002-08-29  |  1.5 KB  |  54 lines
  1. <PUBLIC:HTC URN="shellctls"><ATTACH event="oncontentready" handler=_OnContentReady /><SCRIPT language="javascript">
  2. var _bLoading = true; 
  3. var _idFor = null;
  4. var _szText = null;
  5. var _ichAccel = 0;
  6. var _chAccel;
  7. var c_szAccelStyle = "style = 'text-decoration:underline; accelerator:true'";
  8. element.attachEvent("onerror", _OnError);
  9. _GetPropertyDefaults();
  10. function get_forCtl() { return _idFor; }
  11. function put_forCtl(id) 
  12. { 
  13. if (_bLoading)
  14. return;
  15. _idFor = id;
  16. }
  17. function _OnContentReady()
  18. {
  19. _bLoading = false;
  20. _ScanForAccelerator();
  21. _CreateHTML();
  22. }
  23. function _GetPropertyDefaults()
  24. {
  25. if (element.forElem)
  26. _idFor = element.forElem;
  27. }
  28. function _ScanForAccelerator()
  29. {
  30. var sz = element.innerText;
  31. _ichAccel = sz.indexOf('&');
  32. _szText = sz.substring(0, _ichAccel);
  33. if (_ichAccel < sz.length - 1)
  34. _szText = _szText + sz.substring(_ichAccel+1, sz.length);
  35. if (0 <= _ichAccel)
  36. _chAccel = sz.charAt(_ichAccel+1);
  37. }
  38. function _CreateHTML()
  39. {
  40. element.innerHTML =
  41. '<LABEL id=idLblAccel_' + uniqueID + ' for=' + _idFor + ' accesskey="' + _chAccel + '">' +
  42. _szText.substring(0, _ichAccel) +
  43. '<SPAN ' + c_szAccelStyle + '>' +
  44. _szText.substring(_ichAccel, _ichAccel+1) +
  45. '</SPAN>' +
  46. _szText.substring(_ichAccel+1, _szText.length) +
  47. '</LABEL>';
  48. }
  49. function _OnError(szMsg, szUrl, iLine)
  50. {
  51. alert("An unexpected error occurred.\n\n" + szMsg + "\n" + szUrl + "\nLine: " + iLine);
  52. return true; 
  53. }
  54. </SCRIPT><PROPERTY name="forElem" get=get_forCtl put=put_forCtl /></PUBLIC:HTC>